﻿
Public Class Custom_ReceiveGrid_Demo
    Dim strsql As String
    Dim mysql As New ClsSQLhelper
    Sub Load_Data()

        Dim DS As New DataSet

        strsql = "SELECT item.alternatenumber,item.itemname from item where siteid = " & My.Settings.CurrentSite & "  order by itemname "
        mysql.FillDataset(strsql, DS, "item")

        strsql = "SELECT unitofmeasureid,unitofmeasure from itemunitofmeasure where siteid = " & My.Settings.CurrentSite & "  order by unitofmeasure "
        mysql.FillDataset(strsql, DS, "itemunitofmeasure")

        Custom_ReceiveGrid1.Refresh_ColumnDataset(DS)
    End Sub

    Private Sub Custom_ReceiveGrid_Demo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Load_Data()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub
    Private Sub Custom_ReceiveGrid1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class